home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / misc1 / iv26_w30.zip / SOURCES / FINISH.C < prev    next >
C/C++ Source or Header  |  1980-01-03  |  2KB  |  60 lines
  1. /*
  2.  * Copyright (c) 1989 Stanford University
  3.  *
  4.  * Permission to use, copy, modify, distribute, and sell this software and its
  5.  * documentation for any purpose is hereby granted without fee, provided
  6.  * that the above copyright notice appear in all copies and that both that
  7.  * copyright notice and this permission notice appear in supporting
  8.  * documentation, and that the name of Stanford not be used in advertising or
  9.  * publicity pertaining to distribution of the software without specific,
  10.  * written prior permission.  Stanford makes no representations about
  11.  * the suitability of this software for any purpose.  It is provided "as is"
  12.  * without express or implied warranty.
  13.  *
  14.  * STANFORD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  15.  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
  16.  * IN NO EVENT SHALL STANFORD BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  17.  * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
  18.  * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
  19.  * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
  20.  * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  21.  */
  22.  
  23. /*
  24.  * Call finalization functions for static objects.
  25.  */
  26.  
  27. #if defined(__GNUG__)
  28.  
  29. #include <InterViews/defs.h>
  30.  
  31. typedef void (*PF)();
  32.  
  33. struct PFList {
  34.     int count;
  35.     PF f[1];        /* really PF f[count]; */
  36.     PFList* next;    /* for dynamically loaded objects */
  37. };
  38.  
  39. extern PFList __DTOR_LIST__;
  40.  
  41. #if defined(__cplusplus)
  42. extern "C" { void _finish(); }
  43. #endif
  44.  
  45. void _finish() {
  46.     PFList* list = &__DTOR_LIST__;
  47.     if (list->count > 0) {
  48.     PF* end;
  49.     do {
  50.         end = &list->f[list->count];
  51.         for (PF* f = &list->f[0]; f < end; f++) {
  52.         (**f)();
  53.         }
  54.         list = *(PFList**)end;
  55.     } while (list != nil);
  56.     }
  57. }
  58.  
  59. #endif
  60.